home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / falcon / programm.ing / falclib2.lzh / ROUTS / SAVEFILE.S < prev    next >
Text File  |  1994-08-12  |  378b  |  32 lines
  1. *
  2. * SAVEFILE.S
  3. *
  4. *    @savefile
  5. *
  6. *    Saves data as a file.
  7. *
  8. * In    a5.l=adr. till nollavslutat filnamn
  9. *    a6.l=source
  10. *    d7.l=fillängd
  11. *    
  12.  
  13.     include    gem.s
  14.  
  15.  
  16. @savefile
  17.     move    #0,-(sp)    create file
  18.     move.l    a5,-(sp)
  19.     @gemdos    $3c,8
  20.     move    d0,d6
  21.  
  22.     move.l    a6,-(sp)    write
  23.     move.l    d7,-(sp)
  24.     move    d6,-(sp)
  25.     @gemdos    $40,12
  26.  
  27.     move    d6,-(sp)    close
  28.     @gemdos    $3e,4
  29.     
  30.     rts
  31.  
  32.